NEWSEARCH = rtgetstring(SEARCHSTRING,'Enter string to search for..',PROGNAME,'_OK|_Cancel',TAGS,)
if NEWSEARCH = "" then do
SEARCHSTRING = OLDSEARCH
return
end
SEARCHSTRING = NEWSEARCH
SEARCHSTRING_ARG = SEARCHSTRING
return
/* change host proc */
change_host:
OLDHOST = HOSTNAME
NEWHOST = rtgetstring(HOSTNAME,'Enter a new hostname..',PROGNAME,'_Accept|_Cancel',TAGS,)
if NEWHOST = "" then do
HOSTNAME = OLDHOST
return
end
HOSTNAME = NEWHOST
return
/* options proc */
options:
do while OPT_ANS ~= 0
if HIRES = 1 then
MAXRES = 'Max'
else
MAXRES = 'Alter Maximum'
call rtezrequest('Click on an option to change it..',CASE_STAT'|'MATCH_STAT'|'MAXRES '_Hits ('MAXHITS')|Change _Viewer|_OK',PROGNAME,TAGS 'rtez_defaultresponse = 0',OPT_ANS)
if OPT_ANS = 0 then do
drop OPT_ANS
return
end
if OPT_ANS = 1 then do
if EXACT_ARG = '' then do
if CASE_ARG = '-s' then do
NEWCASE_STAT = '_Case Sensitive'
NEWCASE_ARG = '-c'
end
if CASE_ARG = '-c' then do
NEWCASE_STAT = '_Case Insensitive'
NEWCASE_ARG = '-s'
end
CASE_STAT = NEWCASE_STAT
CASE_ARG = NEWCASE_ARG
end
end
if OPT_ANS = 2 then do
if EXACT_ARG = '' then do
NEWMATCH_STAT = '_Match Exact Word'
NEWEXACT_ARG = '-e'
CASE_STAT = 'Case Sensitive'
CASE_ARG = '-c'
end
if EXACT_ARG = '-e' then do
NEWMATCH_STAT = '_Match SubString'
NEWEXACT_ARG = ''
CASE_STAT = '_Case Insensitive'
CASE_ARG = '-s'
end
MATCH_STAT = NEWMATCH_STAT
EXACT_ARG = NEWEXACT_ARG
end
if OPT_ANS = 3 then do
OLDMAXHITS = MAXHITS
NEWMAXHITS = rtgetlong(MAXHITS,'Enter new ''maximum hits'' value..',PROGNAME,'_Accept|_Cancel',TAGS,)
if NEWMAXHITS = "" then
MAXHITS = OLDMAXHITS
else
MAXHITS = NEWMAXHITS
MAXHITS_ARG = '-m' MAXHITS
end
if OPT_ANS = 4 then do
OLDVIEWER = VIEWER
NEWVIEWER = rtfilerequest(VIEWER_PATH,,'Choose an AmigaGuide viewer..',,TAGS 'rtfi_height=300',,)
if NEWVIEWER = "" then
VIEWER = OLDVIEWER
else
VIEWER = NEWVIEWER
end
drop OPT_ANS
end
return
/* main window update */
update_main:
if CASE_ARG = '-s' then MAINCASE_STAT = 'Insensitive'
if CASE_ARG = '-c' then MAINCASE_STAT = 'Sensitive'
if EXACT_ARG = '' then MAINEXACT_STAT = 'SubString'
if EXACT_ARG = '-e' then MAINEXACT_STAT = 'Exact Word'
SETUP_LINE = writeln('out','@database GUI-Archie'NL'@node main'NL'@title "GUI-Archie Output (Click & Get Page)"'NL NL' @{b}Click on a file @{"·" LINK main} to retrieve it@{ub}'NL' @{b}Click on a ASCII file @{"+" LINK main} to read it@{ub}'NL)
SETUP_FLOW = writeln('overflow','@database GUI-Archie Overflow'NL'@node main'NL'@title "GUI-Archie Output (Long lines)"'NL NL' @{b}@{u}Matches too long for click & get interface@{ub}@{uu}'NL)
SETUP_RXGET2 = writeln('rxget','address command '''FTP_CMD''' S F 'NL'call e'NL'exit'NL'end'NL'if R=''R'' then do'NL'address command '''FTP_CMD''' S F ''local' TEMPREAD''''NL'call e'NL'end')
SETUP_RXGETE = writeln('rxget','e:'NL'if RC=0 then say ''Transfer successful'''NL'if RC=21 then say ''General error - email phil@curve.demon.co.uk with details.''')
SETUP_RXGETE1 = writeln('rxget','if RC=22 then say ''Password argument unacceptable - email phil@curve.demon.co.uk with details.'''NL'if RC=23 then say ''Could not open bsdsocket.library''')
SETUP_RXGETE2 = writeln('rxget','if RC=24 then say ''Remote site does not exist or cannot be resolved.'''NL'if RC=25 then say ''Remote server not responding.'''NL'if RC>25 then do'NL'if RC<29 then do'NL'say ''Anonymous login invalid.'''NL'end'NL'end')
SETUP_RXGETE3 = writeln('rxget','if RC=29 then say ''The remote file no longer exists!'''NL'if RC=30 then say ''The local file cannot be written.'''NL'if RC=31 then say ''User aborted transfer.'''NL'if RC>0 then exit'NL'return')
